unit UMarca;

interface
    uses
      UGenerica;
    type
      Marca = class (Generica)

protected
      nome : string;
      comissao  : Double;


public
  constructor Create;
  destructor Destroy;

  procedure setNome (vNome : string);
  procedure setComissao (vComissao : Double);


  function getNome  : string;
  function getComissao : Double;

end;

implementation





{ Marca }

constructor Marca.Create;
begin
      inherited;
end;

destructor Marca.Destroy;
begin
    inherited;
end;

function Marca.getComissao: Double;
begin
      Result:= comissao;
end;

function Marca.getNome: string;
begin
    Result:= nome;
end;

procedure Marca.setComissao(vComissao: Double);
begin
     comissao:=  vComissao;
end;

procedure Marca.setNome(vNome: string);
begin
   nome:= vNome;
end;

end.

